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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Error Check and Correction 

> 

> BANK 1 MODULE 

> 

> This module contains all the relevant files pertaining 

> to the ECC method and algorithm used on Midget. 

> 

> FUNCTION Ecc : BOOLEAN 

> PROCEDURE ShiftfindXoK URR R1,R2.R3,R4,R5,R6 : BVTE { !r1:6 } > 

> PROCEDURE TestMod8< J : WORD { ! !r8 } > 

> PROCEDURE TestO< J : WORD { ! !r8 } ) 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO External 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

> Function: Ecc 

y- . 

> This function is responsible for 1> checking if the data in the 

> ReadBuffer is correctable and 2) correcting that data if it is 

> correctable. 

? 

> The method used was prepared by: 

> Nei I Glover 

> Data Systems Technology Corp. 

> 1801 flspen St. 

> Broomfield, Co. 80020 

> C 303 > 466-5228 
> 

> Inputs: { none > 

> 

> Outputs: 

> Ecc : BQQLERN { zero flag is set if not correctable } 

> 

> K1 = BitLengthC DataField ) + BitLengthC CrcField ? + 

> BitLengthC EccField > - 41 

> = < 1+532 5*8 + 2*8 + 6*8 - 41 

> = 423? 

~> 

> Correction Span = 12 bits 

> 

> R2Hask = $00 

> RSMask = $0F 

>' 

> Syndrome Bytes begin at Readflrray.RBuf lEcc 



Local Uar iabies: 



> R1 

> R2 

> R3 

> R4 

> R5 

> R6 



BS'TE { 

BVTE { 

BVTE { 

BVTE { 

BVTE { 



rl } 
r2 > 
r3 > 
r4 > 
r5 } 
r5 > 



> Correctable : BOOLEAN { !r?/bit ? > 



> Aligned : BOOLEAN < !r?/bit 6 > 

> Done : BOOLEAN { !r?/bit 5 } 

> J : WORD { Hr8 > 

> 

> fl I gor i thm : 





BEGIN 






Rt : = 


SyndromeBy te[ 1 ] { roost 


> 


R2 : = 


SyndromeBy te [ 2 ] 
SyndromeByteE 3 1 


> 


R3 : = 




R4 : = 


SyndromeBy te I 4 1 




R5 : = 


SyndromeBy tet 5 1 


> 


R6 : = 


SyndromeBy te I 6 ] 


> 


IF ( R1=R2=R3=R4=R5=R6=Q ) 


> 


THEN 


Ecc := False 


> 


ELSE 




> 




J := K1 


> 




fl 1 i gned : = Fa 1 se 


> 




Done := False 


> 




Correctable := False 


> 




UHILE < R1 = > DO 


> 




ShiftRegsLeft t 






J := J + 8 



■> I4hi le NOK Done > OR NOTX fll igned ) DO 

> ShiftAndXor 

> IF < R1 =0 > 

> THEN 

> IF ( R4=R5=R6=G > AND (. R2*R2f1ask = ) AND 

> < R3*R3J1ask > 

> THEN 

> AN gned : = True 

> TestModS 

> IF N0T< Aligned > THEN TestO 

IF N0T< Done > THEN J := J - 1 

> 

> WHILE N0T< Done > DO 

> ShiftAndXor 

> IF < R1 = > 

> THEN TestModS 

> ELSE TestO 

> IF N0T< Done > THEN J := J - 1 

> 

> IF Correctable 

> THEN 

> J := J DIU 3 

> BufferH J 1 := Buffer H J 1 XOR R2 

> BufferH J+1 ] := BufferH J+1 1 XOR R3 

> BufferH J+2 1 := BufferH J+2 3 XOR R4 

> BiocW1ove< Buffer2, RBuffer > 

> 

> Ecc : = Correctable 

> END 

>>>>>>>>>>>>>>>>>>:>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 
. LSTON 
.Page 
FIN 



R1 

R2Mask 



. Equ 428? 
.Equ 



RSMask . Equ 

EccJCorrec table .Equ 

Ecc_fi I i gned . Equ 

Ecc JDone . Equ 



Ecc: 

Clr 

Ld 

Ld 

Ld 
Ld 
Ld 
Ld 
Ld 

Ecc_Ld_Lp : Lde i 

Or 

Djnz 
Jp 

Ecc_LHJ_Mhi le: Or 
Jr 

Ld 

Ld 

Ld 

Ld 

Ld 

Ctr 

Add 

fide 

Jr 

Ecc_fliqn: Call 
Jr 

Ld 

Or 

Or 

Ld 

find 

Or 

Jr 

Or 
Cat I 

Ecc_fil_1: Tm 
Jr 

Call 

Ecc_fllJ2: Tm 
Jr 

Deeu? 

Tib 

Jr 

EccJShift: Call 
Jr 



$OF 
$80 
$40 
$20 



!r7 ; clear boo leans 
IrS^.HIBYTE. K1 
!r9,*.L0UBVTE. K1 

IrO^G ;get ready to check for all zero symdrome 
!rB,«5 ;load six bytes .R1..R5 := Syndrome Bytes 
!re,«.HIBVTE. RBuflEcc 
!rD,*.LGHBYTE. RBUflEcc 

! rfi, *WrkJSys+$0 1 ; load syndrome bytes into registers 

S!rft,e! !rC 
!rO,§!rfi 
!rB,Ecc.JLd_Lp 
Z,Ecc_End 

!r1., !r1 ; WH I LE < R1 = > DO 
Nz,Ecc_filgn 

!M,!r2 ; shift left 1 hute 

!r2, !r3 

!r3, !r4 

!r4, !r5 

!r5, !r6 

!r6 

!r9,*8 ;J := J + 8 
!r8,*Q 

EccJ_HJ_Whi le 

ShiftfindXor 
Mz,Ecc_fll_1 

IrO, !r4 ; IF < R4=R5=R6=0 > 
!r0, !r5 
IrO, !r6 

!rF,!r3 ;RND < R3*R3f!ask = > 

!rF,#R3f1ask 

!rQ, IrF 

Nz,Ecc_RI_1 

!r?,*Ecc_fll igned 
TestriodS 

!r?,*Ecc_fiI igned 
Nz,Ece_RI_2 

TestO 

!r?,*Ecc_Done 
Nz,Ecc_£rct 

I !r3 ; J := J - 1 

!r?,*Ecc_Done+Ecc_fil igned 
Z,Ecc_filgn 

ShiftfindXor 
Nz,Ecc_Shft_£lse 



Cal i 
Jr 



TestModS 
Ecc^Shft_2 



Ecc _jShf t_£ I se : Call Tes tO 



Ecc_JShft_2: Tm !r?,»Ecc_Done 

Jr Nz^EccJCrct 

Decw ! !r8 ; J := J - 1 

Jr EccJShift 



EccJCrct: 



EccJDivS: 



Tm ! r? t *Ecc_Cor rec tab I e 

Jr Zj,Ecc_£nd 

Ld !rfl,*3 ; J := J DIU 8 

Rrc !r8 

Rrc ir9 

Djnz !rfi,Ecc_Div8 

Rnd !r8,*$1F ;mask off any unwanted carries 



Ld !rC,*.H!B¥TE. RDummy 

Ld !r-D,*.LOWBVTE. RDummy 

Add !rD, !r9 

Rdc »rC,!r8 

Ld !rB,*Wrk_JSys+$Q2 ; start with R2 

Ld !rR,*3 ; correct 3 bytes 



Ecc_Crc t_Lp : Lde ! r 1 , § ! ! rC 

Xor !rt,$!rB 

Ld @!rB, !r1 

Ldei e!!rC,*!rB 

D j nz !rft, Ecc JCr c t_Lp 



Ld !r2,».HIBVTE. RBuf_To_Buf2 

Ld !r3,*.L0UBVTE. RBuf_To_Euf2 

Gal i BankJCai i 

Tm !r?,*Ecc_Correc table ;set correctable flag 



Ecc_End : Jp Bank_Ret 



. LSTOFF 

.DO External 

. LSTON 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: ShiftflndXor 

> 

> This procedure is used to shift the current syndrome bytes 

> C assumed to be located In !M:6 ? to the right 1 bit and then 

> Xor the syndromes uiith the reciprocal polynomial if needed. 

> 

> Inputs: 



> 


R1 


BVTE 


{ 


Ir1 > 




R2 


BVTE 


{ 


!r2 > 


> 


R3 


BVTE 


{ 


lr3 } 


> 


R4 


BVTE 


i 


!r4 > 


> 


R5 


BVTE 


i 


!r5 > 
!r& > 


> 


R6 


BVTE 


i 



;> Outputs: 



R1 
R2 
R3 
R4 
R5 
R6 

fl I gor i thm : 



BYTE { !r1 > 

BVTE { !r2 } 

BYTE { !r3 } 

BYTE { !r4 > 

BVTE { !r5 > 

BVTE { !r6 > 



BEGIN 

Shift the syndromes right 1 bit with carry 

{ if carry } 



> 


IF the 


Isb 


of R6 mas a 


> 


THEN 






> 




R1 


= R1 XOR 140 






R2 


= R2 XOR 12 


> 




R3 


= R3 XOR 10 


> 




R4 


= R4 XOR 40 


> 




R5 


= R5 XOR 24 


> 




R6 


= R6 XOR 8 



END 

>>>>>>>>>:>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.00 Interna! 

. LSTON 

.Page 

.FIN 



ShiftfindXor 



S_R_Xor_Lp: 



S_R_Xor_End: 



Ld 


!rC,*6 ; shift & bytes 


Ld 


!rD,*Hrk.jSys+$01 ; start 


Rcf 




Rrc 


8!rD 


f nc 


!rD 


Djnz 


!rC,S_fi_Xor_Lp 


Jr 


Hc,S_fl_<or_fnd 


Xor 


!r1, *140 


Xor 


!r2,*12 


Xor 


!r3,»1Q 


Xor 


!r4,*40 


Xor 


!r5>24 


Xor 


!r5,#8 


Or 


!M,!r1 ; IF < R1=0 ). . 


Ret 




. LSTOFF 




.DO 


External 


. LSTON 




.Page 





>>>>>>>>>>>>>>>>>>>>>;•>>>>>>>>>>> 



Procedure: TestModS 

This procedure is used to test if f , J NOD 8 = 0). 
Inputs: 



J : WORD { Mr8 } 

Outputs: { none } 

Scoped Global variables Changed: 
Done : !r?/bit 5 
Correctable : !r7/bit 7 

Algorithm: 

BEGIN 
IF < J MOD 8 = > 
THEN 

Done := True 
Correctable := True 

END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTON 

.Page 

.FIN 



TestModS: 



TstMdS_Bone: 



Ld 

flnd 

Jr 

Or 

Ret 

. LSTOFF 



!rG, !r9 

!r0,«0? ;get remainder from division 
Nz.TsthdS-Done 

? #Ecc_Done+Ecc_Correctab I e 



. DO Externa I 

.LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Procedure: TestO 

This procedure is used to test if < J = X 
Inputs: 

J : WORD { Hr8 } 

Outputs: { none } 

Scoped Global Uar iabies Changed: 
Done : !r?/bit 5 
Correctable : Ir7/bit 7 

fi I gor i thro : 

BEGIN 
IF ( J = ) 
THEN 

Done := True 
Correctable := True 

END 



. LSTOFF 
.FIN 

.DO Internal 

. LSTON 
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.FIN 



Ld !rQ,!r8 

Or !rO.. !rQ ; IF < J = ). . 

Jr Nz,TstO_Done 

Or ! r? , *Ecc JDone 

find !r7,«$FF-EccJCorrec table 

Ret 

. LSTOFF 



